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Leap Frogs 

dim p(9) 

LET p(5) = 0 

FOR I = 1 TO 4 

LET P(l) = 129 
LET P(I + 5) = 128 
NEXT I 
LET C = 0 
CLS 

FOR I = 1 TO 9 
PRINT CHR$(p(l))j" "i 
NEXT I 
PRINT 

FOR I = 1 TO 9 
PRINT U" *J 

PRINT "ENTER MOVE" 

INPUT A 

IF A = 0 THEN GO TO 900 
LET F = A / 10 
IF F = 0 THEN GO TO 510 
IF P(F) = 0 THEN GO TO 510 
LET T = A - 10 * F 
IF T = 0 THEN GO TO 510 



580 IF P(T) > 0 THEN GO TO 510 
590 IF ABS(T - F) > 2 THEN GO TO 510 
600 LET C = C + 1 
610 LET P(t) = p(f) 

620 LET p(f) = 0 
700 L£T X = 0 
710 FOR I = 1 TO 9 
720 IF I = 5 THEN GO TO 790 
730 IF NOT p(l) = 128 - (i > 5) THEN LET X 
= 1 

790 NEXT I 

750 L£T X = X + p(5) 

760 IF X > 0 THEN GO TO 300 

800 PRINT "you did it in "jCj" moves" 

810 PRINT "ANOTHER GO?" 

820 INPUT A$ 

830 IF CODE (A$) f 62 THEN GO TO 200 
900 PRINT "byebye" 







Encoding 

100 PRINT "ENTER MESSAGE" 

110 INPUT A$ 

120 PRINT A$ 

130 PRINT "ENTER CODE NUMBER (1 - 256)", 

MO INPUT T 

150 PRINT T 

160 RANDOMISE ABS(t) 

170 IF T < 0 THEN PRINT "DE"; 

180 PRINT "CODED MESSAGE IS" 

190 LET R = RND (26) 

200 IF T < 0 THEN LET R = 26 - R 
210 IF A$ = "" THEN GO TO 300 
220 LET B = CODE (A$) 

230 LET A$ = TL$ (A$) 

290 IF B = 0 THEN GO TO 280 
250 letb = b + r- 38 
260letb = b- 26* (b/26) 

270 let b = b + 38 

280 PRINT CHR$ (b); 

290 go to 190 
300 PRINT 

310 PRINT "ANY OTHER MESSAGE?" 

320 INPUT A$ 



330 IF NOT CODE (A$) = 62 THEN GO TO 360 

340 CLS 

350 GO TO 100 

360 print "byebye" 




Horse Race 


50 RANDOMISE 
60 dim o(9) 

70 DIM d(9) 

80 LET A$ = 

90 LET B$ = 

100 LET C$ = 

110 LET M = 100 
120 GO TO 200 
130 FOR C = 1 TO D 
190 PRINT " a "j 
150 NEXT C 
160 RETURN 
170 FOR I = 0 TO 9 
180 LET D(l) = 0 
190 NEXT I 

200 PRINT "you have £";m 
210 PRINT "ENTER bet" 

220 PRINT 
230 PRINT "odds" 

290 FOR I = 1 TO 9 

250 LET o(l) = RND (9) + 1 

260 PRINT CHR$ (I + 3 1 ), o(l)j "/l" 

270 NEXT I 

280 INPUT B 




go to 999 


290 IF B = 0 THEN 
300 PRINT "HORSE?" 

310 INPUT H$ 

320 FOR L = 1 TO 9 
330 cls 

390 PRINT "up ";L 
350 FOR I = 1 TO 9 

360 let d(i) = d(i) + 5 + 7 / o(i) + rnd 
(2 * o(i) / 3) 

370 if d(i) > d(0) then let d(0) = d(i) 

380 if d(0) = d(i) then let j = i 

390 next i 

900 for i = 1 to 9 

910 PRINT CHR$ (I + 37) 

920 LET D “ D(l) - D(0) + 15 
930 GO SUB 130 
990 PRINT A$ 

950 GO SUB 130 
960 PRINT B$ 

970 go sub 130 
980 PRINT c$ 

990 PRINT 
500 NEXT I 

510 PRINT "PRESS N/l" 

520 INPUT D$ 

m 



530 NEXT L 
9)0 CLS 

550 PRINT "WINNER IS "i CHR$ (j + 37) 

560 LET s = 0 

570 IF CODE (H$) = J + 37 THEN LET S = 1 
580letm = m- b + s*b* o(j) 

590 IF M < 1 THEN GO TO 999 
600 GO TO 170 
999 PRINT "bibi" 
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Lunar Lander 





Lunar Lander 


90 dim a(19) 

100 let v = - 50 
110 LET h = 1500 
120 LET R - 7000 
200 FOR I = 0 TO 19 
210 PRINT I, 

220 INPUT X 
230 LET A(l) = X 
240 PRINT A(l) 

250 NEXT I 

> R*U*N 

ENTER FOLLOWING VALUES: 

0, 0, 156, 0, 0, 0, 8, 3, 136, 0, 0, 

2, 3, 130, 0, 134, 131, 3, 131, 135 

200 FOR i = 0 TO 3 
210 FOR X = 0 TO 4 
220 PRINT chr$(a(x + 5 * i)); 

230 NEXT X 
240 PRINT 
250 NEXT I 

> G*0 T*0 1*0*0 TO VERIFY LUNAR lander shape 

18 



130 GO TO 500 
260 RETURN 

300 print "thrust (0 - 99)?", 

310 INPUT F 
320 print f 

330 PRINT "DURATION (HO)?", 

340 INPUT T 
350 cls 

360 iFF*t)r/10 THEN LET F = R / 10 
* T 

370 LET R = R - F * T * 10 

400 LET A = F - 32 

410leth = a*t**2 + v*t + h 

420 uet v - 2 * a * t + v 

500 LET L = H / 100 

510 IF L < 0 THEN LET L = 0 

520 IF L > 12 THEN LET L = 12 

530 FOR I = L TO 12 

540 PRINT 

550 NEXT I 

560 IF L > 8 THEN GO SUB 200 
570 print , "veloc","height","fuel" 

580 PRINT , V, H, R 

600 IF l < 9 then go sub 200 

610 IF L = 0 THEN GO TO 650 
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620 FOR I = 1 TO L - 1 
630 PRINT 
640 NEXT I 

650 IF H < 0 THEN PRINT "**CRASH**" 

660 FOR I = 1 TO 16 
670 PRINT "IH") 

680 NEXT I 

690 IF L > 0 THEN GO TO 300 

700 ifh<0orv<-99 then go to 730 

710 PRINT 100 + Vj" PERCENT OK" 

720 STOP 

730 PRINT "terrible" 


Important note; 

To run this program, do not press R*U*fl 

AS THIS WILL CLEAR THE VARIABLES WITH 
THE LUNAR LANDER SHAPE, 

Use G*0 T*0 1*0*0, 
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MAZES 


100 dim w(32) 

PRINT 

PRINT "IT/S AMAZING" 

PRINT 

LET W(l) = 2 
LET w(32) = 130 
FOR I = 2 TO 31 
LET W(l) = 3 
NEXT I 

LET X = RND (20) 

LET W(X) = 2 
let w(x + 6) = J30 
FOR I = 2 TO 5 
LET W(X + i) = 0 
NEXT I 

FOR L = 1 TO 15 
FOR I = 1 TO 32 
320 PRINT CHR$(w(l))j 
330 IF I = 1 OR I = 32 THEN GO TO 500 
340 IF w(l) < 3 THEN GO TO 450 
350 IF w(l) > 3 THEN GO TO 400 
360 LET X = RND (8) 

370 IF X < 3 THEN LET W(l) = 2 
380 IF X = 8 THEN LET w(l) = 7 



390 GO TO 500 

TO LET W(l) = 1 + RND (2) 

TO GO TO 500 
‘-TO LET X= RND 6) 

TO LET W(l) = 1 + X / 2 
TO IF X = 1 THEN LET W(l) = 7 
500 NEXT I 
510 NEXT L 



Noughts And Crosses 





Noughts and Crosses 


100 dim a(9) 

110 for j = 0 to 2 
120 for i = 1 to 3 

130leta(i+3*j)=28+i+9*j + 

2 * i * (j > 1) 

190 NEXT I 
150 NEXT J 
160 LET a(9) = 36 
170 LET A (5) = 61 
180 LET a(6) = 32 
190 GO TO 400 
200 for i = 1 TO 9 

210 IF a(i) = M + 28 THEN LET A(l) = V 

220 NEXT I 

230 for i = 0 to 2 

290 for j = 1 to 3 

250 PRINT CHR$ (a(j + 3 * i))j" a 

260 NEXT J 

270 PRINT 

280 PRINT 

290 NEXT I 

300 PRINT 

310 RETURN 

900 LET A = 0 
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410 LET E = 0 

420 PRINT "i WENT FIRST" 

430 go sub 230 
440 PRINT "enter move" 

450 INPUT R 
460 CLS 

470 IF R = 2 * (r / 2) THEN LET E = -1 

480 LET M = R 

490 LET v = 28 

500 go sub 200 

510 LET P = R 

520 for t = 1 to 4 

530 PRINT "i moved" 

540 let V = 61 
550 LET A = A + 1 

560 ift = 1crr = p + 4orr = p- 4 
THEN GO TO 620 
570 LET P = P + 4 
580 IF P > 8 THEN LET P = P - 8 
590 LET M = P 
600 GO SUB 200 
610 GO to 790 

620 IF A = 3 AND E THEN LET A = 7 
630 IF A = 4 THEN LET A = 6 
640 LET P = P + A 



650 IF P > 8 THEN LET P = P - 8 

660 LET M = P 

670 GO SUB 200 

680 IF A = 7 THEN GO TO 790 

690 IF T = 4 THEN GO TO 770 

700 PRINT "YOUR MOVE" 

710 INPUT R 
720 CLS 
730 LET M = R 
790 LET v = 28 
750 GO SUB 200 
760 NEXT T 
770 PRINT "draw" 

780 STOP 

790 PRINT "zx-80 WINS" 
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Dr. ZX-80 

100 LET A$ = "a ACCEPTABLE AGAIN BYEBYE CO 
ME DID DO ENOUGH FEEL FIND FOR FRIENDS 
HELLO HERE HOW I IS i/M LIKE NAME NOR 
MAL REASONABLE SAY THAT/S THERAPIST TH 
ERE THINK THIS TO TODAY WAS WAY WHAT W 
HEN WHY WOULD YOU YOUR " 

110 DIM P (90) 

120 LET s = PEEK (16392) + 256 * peek (163 
93) 

200 FOR I = 0 to 90 
210 PRINT I, 

220 INPUT B 
230 LET p(l) * B 
2W PRINT p(l) 

250 IF B = 0 THEN CLS 
260 NEXT I 

R*U*N 

ENTER FOLLOWING VALUES! 

68,141,88,199, 131,175,85,199,97,0 


185,36,195,197,195,96,153,171,0 



36,199,60,51,153,3,0 
36,195,27,79,158,51,60,0 
36,195,197,153,85,102,0 
36,199,60,51,153,3,0 
83,197,129,39,56,161,180,189,195,92,158, 
27,79,19,0 
129,109,20,0 


CHECK THAT TABLE HAS BEEN ENTERED CORRECTLY 
BY TYPING ON EDIT LINE (AFTER R*U*N ABOVE 
BUT BEFORE ALTERING PROGRAM) : 

PRINT CHR$ (PEEK (S + 1) ) - RESULT SHOULD 
BE 'A' 

PRINT CHR$ (PEEK (s + 199) ) - RESULT SHOULD 


Note : I strongly recompend that you SAVE 

THE PARTIAL PROGRAM AT THIS STAGE - IT WILL 
SAVE YOU A LOT OF TEDIOUS RETYPING IF YOU 
SHOULD LOSE THE PROGRAM SOMETIME AFTER THIS. 
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DELETE lines 100 and 110 and replace lines 
200 ONWARDS WITH FOLLOWING: 

200 FOR I = 0 TO 88 

210 LET J = - 1 

220 LET J = J + 1 

230 IF p(l) = 0 THEN GO TO 270 

290 PRINT CHR$ (PEEK (s + P(l) + j)); 

250 IF PEEK (s + p(l) + j) > 0 THEN GO TO 
220 

260 IF p(l) > 0 THEN GO TO 300 
270 PRINT "?" 

280 INPUT B$ 

290 CLS 
300 NEXT I 

Important note: 

To RUN this PROGRAM, DO NOT PRESS R*U*N 
AS THIS WILL CLEAR THE VARIABLES. 

Use G*0 T*0 1*2*0. 
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Nim 


100 DIM t(3) 

110 DIM N0) 

120 DIM x(3) 

130 LET N(l) = 7 
MO LET n(2) = 5 
150 LET n(3) = 3 
160 GO TO 500 
200 FOR R = 1 TO 3 
210 FOR M - 1 TO N(r) 

220 IF n(r) = 0 THEN GO TO 250 

230 PRINT \Wi 

240 NEXT M 

250 PRINT 

260 PRINT 

270 NEXT R 

280 RETURN 

300 FOR S = 0 TO 3 

310 LET t(s) = 0 

"320 NEXT s 

330 FOR S = 1 TO 3 

340 LET T(l) = t(1) + (x(s) AND 4)/4 

350 LET t(2) = t( 2) + (x(s) AND 2)/2 

360 LET T(3) = T(3) + (X(s) AND 1) 

370 NEXT s 



380 FOR S = 1 TO 3 

390 IF T(s) = 2 THEN LET T(s) = 0 

TO LET T(0) = T(0) + T(s) 

410 NEXT S 
TO RETURN 

500 GO SUB 200 

510 PRINT "enter row and how many" 
520 INPUT Y 

530 IF Y = 0 THEN GOTO 900 

-^ 540ify(0ory>33 then go to 520 

550 LET M = Y / 10 
560lety = y-10*m 
570 if y > n(m) then go to 520 
580 LET n(m) = n(m) - Y 
590 CLS 

600 GO SUB 200 
610 FOR R = 1 TO 3 
620 LET x(r) = n(r) 

630 NEXT R 
6W GO SUB 300 

650 IF T(0) = 0 THEN GO TO 670 
660 PRINT "i BET I WILL WIN" 

670 PRINT "press n/l" 

680 input x$ 

690 IF t(0) > 0 THEN GO TO 750 



700 FOR R = 1 TO 3 

710 LET M = N(r) - 1 

720 IF n(r) > 0 THEN GO TO 820 

730 NEXT R 

740 GO TO 900 

750 FOR r = 1 to 3 

760 FOR M = 0 TO n(r) 

770 LET X(r) = M 
780 go sub 300 

790 IF t(0) = 0 then go to 820 
800 NEXT M 
810 NEXT R 

820 IF R > 3 THEN GO TO 900 
830 LET N(r) = M 

840 if n(1) + n(2) + n(3) = 0 then go to 900 

850 go to 500 

900 print "who won?" 



Blackjack 









Blackjack 


100 rem 23456789tjqka23456789tjqka23456789 
tjqka23456789tjqka 
110 dim n(3) 

120 let s = 16427 
130 LET M = 100 
140 GO TO 310 

150 LET X = PEEK (S + 6 * I + N(l)) - 28 
160 LET N(l + 2) = n(i + 2) - 10 * (X ) 10) 
- x * (x < io) - n * (x - io) 

170 L£T A = A - (X = 10) 

180 RETURN 

200 print "yours"„"zx80" 

210 FOR K = 0 TO 1 

220 forl = 6*kto6*k + n(k) 

230 LET X = PEEK (s + L) 

240 PRINT CHR$ (x)j" "j 
250 NEXT L 
260 PRINT ,, 

270 NEXT K 
300 RETURN 
310 FOR I = 0 TO 51 
320 LET J = RND (52) - 1 
330 LET X = PEEK (s + j) 

340 POKE S + J, PEEK (s + I) 
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350 POKE S + I, X 
360 NEXT I 
370 FOR I = 0 TO 1 
380 LET N(l) = 0 
390 let n(i + 2) = 0 
TO LET A = 0 
TO GO SUB 150 
TO NEXT I 

TO PRINT "bet: you have £"jm 
TO INPUT B 
TO CLS 

500 FOR I = 0 TO 1 
510 LET W = 2 * I - 1 
520 LET A = n(i + 2) / 10 
530 GO SUB 200 

590 IF I = 0 THEN PRINT "H OR S?" 

550 IF I = 1 THEN PRINT "n/l" 

560 LET 1$ = "s" 

570 INPUT 1$ 

580 as 

590 IF CODE (l$) = 56 THEN GO TO 700 
600 LET n(i) = N(l) + 1 
610 GO SUB 150 

620 IF N(l + 2) < 22 THEN GO TO 660 
630 IF A = 0 THEN GO TO 800 



TO LET A = A - 1 
650 LET N(I + 2) = N(I + 2) - 10 
660 IF N(l) = 4 THEN GO TO 700 
670 IF I = 0 OR N(l +2) <17 THEN GO TO 
530 

700 NEXT I 
750 GO SUB 200 
760 LET w = - 1 

770 IF (n(0) = AND N(l) < 4) OR n(2) > 
n(3) then let w = 1 

780 if n(2) = 21 and n(0) = 1 then let w 
= 2 

800 letm = m + w*b 

810 IF M < 1 THEN STOP 

820 go to 310 



Bubble Sort 


a useful subroutine, : 


a program, to order the elements in an array. 

It assumes that there has been previously 
defined an array P(l), with N elements. 

The method is called a Bubble Sort 
because the lighter elements ’bubble 1 up 


to the top until each element is in its 


place. 


program, see BRIDGE BIDDING. 





Bubble sort 
for j = 1 to n - 1 
LET K = J + 1 
FOR I = K TO N 
LETL=N + K-1 
IF p(l) > P(J) THEN GO TO 180 
LET T = P(L) 

LET P(L) = P(j) 

LET P(j) = T 
NEXT I 
190 NEXT J 



Line Renumber 


though in its short form it takes up just 

Although it can be keyed in at any time, 
this is tedious and it is better to IXDAD 
it into the memory before you key in any 
other program. Please note that you cannot 
LOAD it from tape once you already have 
a program in the memory. 


s already numbered 1' 





Line Render 

9989 let l = 110 

9990 for n = 16925 to 17900 

9993 IF NOT PEEK (n) = 118 THEN GO TO 9999 
9999 IF PEEK (N + 1) > 38 THEN STOP 

9995 print 256 * peek (n + 1) + peek (h + 2), 

9996 PRINT L 

9997 LET N = N + 2 

9998 LET L = L + 10 

9999 NEXT N 

> R*U*N 9989 to see that the program has 

BEEN ENTERED CORRECTLY. 

SCREEN SHOULD SHOW OLD LINE NUMBER AND 
REPLACEMENT LINE NUMBER 

9991 IF PEEK (n) = 251 THEN PRINT L - 10, 

CHR$ (251) 

• 9992 IF PEEK (n) = 236 then print l - 10, 
chr$ (236) 

9995 POKE N + 1, L / 256 

9996 POKE n + 2, l AND 255 



Draw A Picture 




Available from the keyboard: 


e 3 y 

n 5 a 

c 7 □ 

SB 9 ■ 



a m h 
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a " k 



Other useful 'graphic' symbols: 

6 £ 18 - 19 + 

20 * 23 > 24 < 



Draw A Picture 


100 PRINT 
110 PRINT 

120 PRINT "size pad (3-7)?" 

130 INPUT N 

MO IF N < 3 OR N > 7 THEN GO TO 120 
150 DIM a(N * N - 1) 

200 CLS 

210 FOR K = 1 TO N 
220 LET J = N + 1 - K 
230 PRINT Jj 
240 FOR I = 1 TO N 

250 PRINT CHR$ (A(J - N - 1 + N * l))j 

260 NEXT I 

270 PRINT 

280 NEXT K 

290 PRINT 

300 PRINT , 

310 FOR I = 1 TO N 
320 PRINT Ij 
330 NEXT I 
340 PRINT 

400 PRINT "ENTER COORD" 

410 INPUT X 

420 IF X = 0 THEN GO TO 500 



430 PRINT X 
440 LET J = X / 10 
450 LET I = x - 10 * J 
460 PRINT "enter char code" 

470 INPUT X 

480 LET a(j - N - 1 + n * i) = x 

490 GO TO 200 

500 PRINT "codes used:" 

510 FOR K = 1 TO N 
520 LET J = N + 1 - K 
530 PRINT "line:";J, 

540 FOR I = 1 TO N 

550 PRINT a(j - N - 1 + N * l)j" “j 

560 NEXT I 

570 PRINT 

580 NEXT K 
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Machine Code 


This program defines a reserved area 
of 20 bytes by defining the variable A(10) 
as the very first statement of the program, 
and then allows you to load machine code 
instructions in hexadecimal. 


a full discussion of the ZX 80 machine 
code and how to program in machine code. 


is contained in our book ZX 80 MACHINE 

Language Programing- 


LD HL,(16400) 



C9 


The first line (OR A) is for internal 
housekeeping and clears the carry flag. 
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Machine Code 


100 DIM A(10) 

110 let s = PEEK (16392) + 256 * peek (163 
93) + 2 
120 cls 

130 print "location","contents" 

MO FOR I = 0 TO 20 
150 PRINT S + I,, 

160 INPUT A$ 

170 IF A$ = "" THEN GO TO 200 
180 LET V “ 16 * CODE (A$) + CODE (TL$ (a$)) 
- 976 

190 POKE S + I, V 
200 LET V = PEEK (s + i) 

210 PRINT CHR$(v /16 + 28);chr$((v and 15) 
+ 28) 

220 IF V = 201 THEN GO TO 240 
230 NEXT I 

2W PRINT 

250 PRINT "any changes?" 

260 input A$ 

270 IF CODE (a$) = 62 then go to 120 
280 print "result 6f usr is"jusr(s) 



> lfU*N 

ENTER FOLLOWING MACHINE CODE VALUES 

b7, 2a, 10, 90, ed, 72, c9 

RESULT OF USR WILL BE - MEMORY REMAINING, 
YOU MAY FIND IT INTERESTING TO ADD THE 
FOLLOWING FOUR LINES: 

290 PRINT "CONTENTS OF A(l) ARE:" 

300 FOR I = 0 TO 3 
310 PRINT a(i), 

320 NEXT I 




Memory Left 


20 dim a(3) 

30 let s = PEEK (16392) + 256 * peek (163 
93) + 2 

90 let a(0) = 10935 
50 LET A(l) = 16900 
60 LET a(2) = 29921 
70 LET a(3) = 201 
80 PRINT USR(s) 

90 stop 

> R*U*N 

AFTER THE FIRST RUN, AS LONG AS YOU DO 

NOT CLEAR OR RUN then lines 20,90,50,60 
AND 70 CAN BE DELETED. 

TO OBTAIN MEMORY LEFT AFTER THESE LINES 
HAVE BEEN DELETED USE G*0 T*0 30. 
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Day of the Week 

100 PRINT " AAA I CALCULATE THE DAY YOU WERE 

110 LET D$ = " AA „SUNMONTUEWEDTHUFR I SAT" 
120 PRINT "PLEASE ENTER YOUR NAME" 

130 INPUT A$ 

MO PRINT "hello a "ja$ 

150 PRINT "ENTER DATE OF BIRTH: DAY", 

160 INPUT D 

170 IF D < 1 OR D > 31 THEN GO TO 160 
180 PRINT D,"MONTH", 

190 INPUT M 
200 PRINT M,"YEAR" 

210 INPUT Y 

220 IF Y < 1700 THEN PRINT A$," IS TOO OLD 

FOR ME" 

230 IF Y ( 1700 THEN GO TO 440 

290 cls 

250 LET K = 0 

260 ifm = 1orm = 2 then let k = 1 
270 LET L = Y - K 
280 LET 0 = M + 12 * K 
290 LET P = L / 100 

300 LET z - (13 * (o + D) / 5 + (5 * l) 
/4-p+p/4+d-1 

5T 



310 let z = z - 7 * (z / 7) + 1 
320 FOR I = 1 TO z * 3 
330 LET D$ = TL$ (D$) 

340 NEXT I 

TO PRINT A$j" WAS BORN ON ",'CHR$( CODE ( 
D$)); 

410 LET D$ = TL$ (D$)) 

420 PRINT CHR$ (CODE (d$));CHR$ (CODE ( TL$ 
(D$))) 

440 PRINT "anyone else?" 

450 INPUT A$/r~ 

460 if codeiaS) = 62 then go to 110 
470 PRINT "zx80 SAYS byebye" 





Chinese Remainder 


100 dim r(3) 

110 PRINT "THINK OF A NUMBER BETWEEN 1 AND 
316" 

120 PRINT "PRESS N/L WHEN READY" 

130 INPUT A$ 

200 LET A = 3 
210 FOR I = 1 TO 3 
220 LET A = A + 2 

230 PRINT "now divide your original number 
by/'ja 

240 print "please enter remainder" 

250 INPUT r(i) 

260 PRINT r(i) 

270 next i 

300 1£T a = 126 * r(1) + 225 * r(2) + 280 
* r(3) 

310 let a = a - 315 * (a / 315) 

320 PRINT "your number WAS ";A 
330 PRINT "another?" 

340 INPUT A$ 

350 CLS / 

360 IF CODE 1 '(A$) = 62 THEN GO TO 100 
370 PRINT "byebye" 



Simple Simon 


some nice graphics touches only the ZX 80 
is capable of easily. 


The computer generates 
of letters that you have 




The nice part is that the letters are 
displayed in HUGE J-line deep graphics. 


defines each letter for the ZX 80 can be 
peeked in ROM at location 358U onwards. 
Each letter is made up of dots and it 
takes 8 bytes to define each letter. 




Simple Simon 


100 dim a(30) 

110 LET J = - 1 
120 RANDOMISE 
130 DIM P (7) 

140 FOR I = 0 TO 7 

ISO LET p(i) = 2 ** (7 - I) 

160 NEXT I 

200 LET X = RND (26) + 37 
210 CLS 

220 PRINT "next char is" 

230 FOR L = 0 TO 7 

240 let v = peek (3584 + l + 8 * x) 

250 FOR K = 0 TO 7 

260 LET G = (v AND P(k)) > 0 

270 PRINT CHR$ (- 128 * g) j 

280 NEXT K 

290 PRINT 

300 NEXT L 

400 IF X = 15 THEN GO TO 700 
410 LET J = J + 1 
420 IF J = 31 THEN GO TO 800 
430 LET A(J) = X 

440 PRINT "PRINT ENTIRE SEQUENCE" 
450 INPUT A$ 



TO PRINT A$ 

TO FOR I = 0 TO J 
TO LET X = CODE (A$) 

TO IF NOT A(l) = X THEN GO TO 600 
500 LET A$ = TL$ (A$) 

510 NEXT I 

520 GO TO 200 

600 LET X = 15 

610 GO TO 230 

700 PRINT "SORRY IT WAS:" 

710 FOR I = 0 TO J 
720 PRINT CHR$ (a(i))j 
730 NEXT I 
700 stop 

800 PRINT "i GIVE UP" 




Hangman 

10 PRINT " Kpaii ": 

20 RETURN 
30 PRINT "HIS" 

40 RETURN 

50 PRINT " A 14 C‘ 

60 RETURN 

70 PRINT A 4 H" 

80 RETURN 

90 PRINT * "i CHR$ 035); CHR$ 035); 
"B" 

100 RETURN 

110 PRINT " A A "; CHR$ 034); 

120 RETURN 

130 PRINT chr$ 034); "El" 

140 RETURN 

150 PRINT " A A "; chr$ 030); chr$ 028) 
160 RETURN 

170 PRINT " a *) CHR$ 032); 

180 RETURN 

190 PRINT CHR$ 030); "El" 

200 RETURN 

210 FOR L = 1 TO G 

220 IF G = 0 TIEN GO TO 250 

230 go sub 20 * l - 10 





NEXT L 
PRINT 
PRINT 

IF G = ID THEN GO TO 290 
GO TO 500 

PRINT "TOO BAD" 

PRINT "ENTER NEW WORD" 
INPUT X$ 

LET W = 1 
LET A$ = X$ 

FOR L = 1 TO 20 
LET A$ = TL$ (A$) 

IF A$ = "" THEN GO TO 390 
LET W = W + 1 
NEXT L 
DIM A(W) 

FOR L = 1 TO W 
LET A(L) = 0 
NEXT L 

PRINT "LETTERS-'jW 
LET G = 0 
PRINT "INPUT GUESS" 

INPUT A$ 

CLS 

IF A$ = "" THEN GO TO 999 
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LET B = CODE (A$) 

LET A$ = X$ 

LET C = 0 
FOR L = 1 TO W 

IF B = CODE (A$) THEN LET A(l) = B 
IF A(L) = B THEN LET C = 1 
LET A$ = TL$ (At) 

NEXT L 

IF C = 0 THEN LET G = G + 1 

LET N = W 

FOR L = 1 TO W 

IF A(L) = 0 THEN PRINT 

IF A(L) = 0 THEN GO TO 690 

LET N = N - 1 

PRINT CHR$ (A(L))j 

NEXT L 

PRINT 


IF NOT N = 0 THEN GO TO 210 
PRINT "BRILLIANT" 

GO TO 300 

PRINT "THANKS FOR THE GAME" 


Important note: 

To run this program, use R*U*N 3*0*0. 
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N/vths Drill 


IDO RANDOMISE 
HO DIM c(3) 

120 DIM p(7) 

130 FOR J = 0 TO 7 

100 LET P(j) = 2 ** (7 - J) 

150 NEXT J 
160 go to 000 

200 IF S = - 1 THEN LET C(l) = 18 

210 LET c(2) = X / 10 

220 LET c(3) = x - 10 * c(2) + 28 

2D IF c(2) > 0 THEN LET c(2) = c(2) + 28 

200 FOR L = 0 TO 6 

2D FOR I = 1 TO 3 

2D LET V = PEEK (3580 + L + 8 * c(i)) 

270 FOR j = 0 TO 7 

280 LET G = (v AND p(j)) > 0 

290 PRINT CHR$ (- 128 * g)J 

3M NEXT J 

310 NEXT I 

320 PRINT 

3D NEXT L 

300 PRINT 

3D RETURN 

000 LET K = 0 
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410 LET c(l) = 0 
420 LET s = 1 
430 LET A = RND (49) 

440 LET X = A 

450 GO SUB 200 

460 LET c(l) = 19 

470 LET S = 2 * RND (2) - 3 

480 LET B = RND (49) 

490 LET X = B 
500 GO SUB 200 
600 INPUT c 

610 IF C = A + S * B THEN GO TO 700 
620 LET K = K + 1 
630 IF K ) 2 THEN GO TO 660 
640 PRINT "try again" 

650 GO TO 600 

660 PRINT "THE ANSWER WAS "j A + S * B 
670 stop 

700 print "that/s right" 





Capitals of the World 


100 dim o(10) 

110 LET C = 0 
120 LET Q = 0 

130 PRINT "THIS IS A TEST OF CAPITALS" 
190 PRINT "WHAT IS THE CAPITAL OF." 
150 LET X = RND (10) 

160 LET A = 10 

170 IF Q(x) < 0 THEN GO TO 150 
180 LET Q(x) = - 1 
190 GO SUB 500 + 20 * X 
200 FOR I = 1 TO 30 
210 LET X = CODE (A$) 

220 PRINT CHR$ (x)j 
230 LET A$ = TL$ (A$) 

290 IF X = 15 THEN GO TO 300 
250 NEXT I 
300 INPUT B$ 

310 IF NOT A$ = B$ THEN GO TO 900 

320 LET C = C + A 

330 LET Q = Q + 1 

390 IF Q = 10 THEN GO TO 500 

350 IF A = 0 THEN GO TO 190 

360 cls 

370 go to 190 



400 PRINT "TRY AGAIN" 

410 INPUT B$ 

420 LET A = 5 

430 IF B$ = A$ THEN GO TO 320 
”440 PRINT "IT IS/jA$ 

450 LET A = 0 
460 GO TO 320 

500 PRINT "YOU GOT/'jC;" a PERCENT RIGHT" 
520 LET A$ = "CZECHOSLOVAK! A?PRAGUE" 
530 RETURN 

540 LET A$ = "TURKEY?ISTANBUL" 

550 RETURN 

560 LET A$ = "THE USA?WASHINGTON" 

570 RETURN 

580 LET A$ = "HOLLAND?AMSTERDAM" 

590 RETURN 

600 LET A$ = "australia?canberra" 

610 return 

620 LET A$ = "JAPAN?T0KY0" 

630 return 

640 LET A$ = "lNDIA?NEW DEHLl" 

650 RETURN 

660 LET A$ = "poland?warsaw" 

670 return 

680 let a$ = "sweden?stockholm" 

T3 
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RETURN 

LET A$ = "P0RTUGAL?LISB0N" 
RETURN 




Life 


100 DIM a(63) 

110 FOR i = 1 TO 63 

120 LET A(l) = 128 * (rnd (2) - 1) 

130 NEXT I 

200 FOR L = 0 TO 8 

210 FOR J = 1 TO 7 

220 LET I ■ J + 7 * L 

230 PRINT CHR$ (A(l))j 

290 NEXT J 

250 PRINT 

260 NEXT L 

270 PRINT "PRESS 1" 

280 INPUT A 
290 cls 

300 for i - 9 TO 55 
310 LET X - 0 

320 IF ((i + 1) AND 7) = 0 THEN GO TO 350 
330 L£T x = (a(i + 1) > 127) 

390 IF ((i - 1) AND 7) = 0 THEN GO TO 360 
350 LET x = x + (a(i - 1) ) 127) 

360 FOR j = 7 TO 9 
370 FOR R = - 1 TO 1 
380 IF R = 0 THEN GO TO 920 
390 LET K = I + R * J 


76 



400 IF (K AND 7) = 0 THEN GO TO 420 
410 let x = x + (a(k) > 127) 

420 NEXT R 
430 NEXT J 

440 LET a(i) = a(i) - X 

450 NEXT I 

460 for i = 9 to 55 

470 IF A(i) = 3 or a(i) = 130 or a(i) = 131 
THEN GO TO 500 
480 LET a(i) = 0 
490 go to 510 
500 let a(i) = 128 
510 next i 
520 GO TO 200 
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Prime Numbers 


100 dim a(75) 

110 LET R = 1 
120 LET A(l) = 2 
130 FOR x = 3 TO 300 
MO FOR Y = 1 TO R 

150 IF x / a(r) > a(r) then go to 180 

160 if x = (x / a(y» * a(y) then go to 210 

170 NEXT Y 

180 LET R = R + 1 

190 LET A(r) = X 

200 PRINT Xj 

210 LET X = X + 1 

220 NEXT X 
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Simultaneous Equations 


This program solves simultaneous linear 



The nice thing about working with 

•are either integer or integer fractions. 

Lines 500 - 550 calculate the Greatest 
Common Denominator of any two numbers. 

Variables: X(l) Equation constants 
A(l) Solutions 
D Determinant 
GCD Greatest Common Denominator 



Simultaneous Equations 


100 dim x(6) 

110 dim a(2) 

120 PRINT "solutions TO 2 EQUATIONS:" 

130 PRINT "A * X^B * 0" 

190 PRINT 

150 PRINT "ENTER DATA" 

160 FOR I = 1 TO 6 

170 PRINT CHR$ (37 + I - ((l - 1) / 3) * 3)j 
180 INPUT x(i) 

190 PRINT x(l) 

200 NEXT I 

300 LET D = x(l) * x(5) - x(2) * x(9) 

310 IF D = 0 THEN GO TO 900 

320 LET a(1) = x<3) * x(5) - x(2) * x(6) 

330 LET a(2) = - x(3) * x(9) + x(l) * x(6) 
390 PRINT 

350 PRINT "solutions are" 

360 LET D = - D 
370 LET S = D / ABS (d) 

900 for i = 1 to 2 
910 LET B = ABS (d) 

920 LET A = ABS <A(I» 

500 LET Q = A / B 
510 LET R = A - Q * B 
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520 LET A = B 
550 LET B = R 

540 IF R > 0 THEN GO TO 500 
550 LET GCD = A 
600 PRINT S * A(l) / GCD J 
610 IF NOT D / GCD = S THEN PRINT 7 ") 
ABS (D / GCD) 

620 PRINT , 

630 NEXT I 
690 STOP 

900 PRINT DEGENERATE: NO SOLUTIONS" 



Square Root 
To 3 Decimal Places 

of any number to three decimal places. 

Note the very simple iteration used 
in lines 200 - 2^0: it may be less 
efficient that the iterations given in 
texts, but it is sufficient and overcomes 
the major problem with the ZX 80 - 
overflow. 

The program also illustrates the use 
of variable names to make a listing 



Square Root 
KM print "input number" 

110 INPUT A 
120 CLS 

130 PRINT "SQUARE ROOT OF "jAj" IS" 

MO LET U - m 
150 LET L = 0 
160 LET FRAC = 0 
170 LET DELTA = 0 
200 LET NEW = (U + L) / 2 
210 if (new - 1) ** 2 < a and (new + 1) ** 
2 ) A THEN GO TO 250 
220 IF NEW ** 2 } A THEN LET U = NEW 
230 IF NEW ** 2 ( A THEN LET L = NEW 
240 GO TO 200 

250 IF NEW ** 2 ) A THEN LET NEW = NEW - 1 
300 LET ERROR = 100 * (A - NEW ** 2) 

310 IF ERROR < 2 THEN GO TO 470 
320 LET FRAC = (ERROR / NEW) / 2 
330 LET FSQ = FRAC ** 2 
340 LET ERROR = ERROR - 2 * NEW * 

350 IF ERROR > 0 THEN GO TO 390 
360 LET FRAC = FRAC - 1 
370 LET ERROR = 100 * (A - NEW ** 

380 go to 330 


FRAC 



390 

LET ERROR = 

10 ‘E 

RROR - FSQ / 10 

900 

IF ERROR < 0 THEN 

GO TO 360 

910 

LET DELTA = 

(error 

/ NEW) / 2 

920 

LET EDASH = 

ERROR 

- (2 * FRAC * DELTA) 
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930 

IF EDASH > 0 THEN 

GO TO 960 

990 

LET DELTA = 

DELTA 

-1 

950 

GO TO 920 



960 

LET DELTA = 

(EDASH 

/ NEW) / 2 

970 

PRINT NEW;" 

."jFRAC 

JDELTA 



Bridge Bidding 



the points value. 



Bridge Bidding 


100 dim d(51) 

110 dim p(13) 

120 FOR I = 1 TO 52 

130 L£T C = RND (52) - 1 

MO IF D(c) < 0 THEN GO TO 130 

150 IF I = '1 * (I / 9) THEN LET P(l / 9) - 

C 

160 LET D(C) = - 1 

170 NEXT I 

200 FOR J = 1 TO 12 

210 LET K = J + 1 

220 FOR I = K TO 13 

230 LET L = 13 + K - I 

290 IF p(l) > p(j) THEN GO TO 280 

250 LET T = p(l) 

260 LET P(l) = p(j) 

270 LET p(j) = T 

280 NEXT I 

290 NEXT J 

300 LET V = 0 

310 LET C = - 1 

320 FOR I = 1 TO 13 

330 LET S - p(l) / 13 

390 LET p(l) = p(i) - 13 * s 



350 IF S = C THEN LET M = M + 1 

360 IF S ) C + 1 THEN LET V = V + 3 

370 IF S > C THEN LET M = 0 

380 IF M ) 0 THEN GO TO 500 

390 LET C = S 
900 LET A$ = " a CDHS" 

410 PRINT 

420 FOR J = 1 TO S + 1 
430 LET A$ = TL$ (A$) 

440 NEXT J 

450 PRINT CHR$ ( CODE (a$) 

460 LET V = V + 3 

500 IF p(l) > 8 THEN GO TO 530 

510 PRINT p(i) + 2;"/ ; 

520 go to 600 

530 LET p(i) = p(i) - 8 

540 LET A$ = " A JQKA" 

550 FOR J = 1 TO p(i) 

560 LET A$ = TL$ (A$) 

570 NEXT J 

580 PRINT CHR$ (code (a$) 

590 LET V = V + p(l) 

600 IF M < 3 THEN L£T V = V - 1 

610 IF 10 * M > T THEN LET T = 10 * M + S 

620 NEXT I 
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630 PRINT 
640 PRINT 
700 PRINT "BID?" 

710 INPUT A$ 

720 PRINT A$ 

730 PRINT 

740 PRINT "WE SUGGEST, "j 
750 IF V < 13 THEN PRINT "PASS" 
760 IF V < 13 THEN GO TO 800 
770 IF V < 21 THEN PRINT "l"j 
780 IF V > 20 THEN PRINT "2"j 
790 PRINT IN LONGEST SUIT" 
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Pontoon 




Pontoon 


100 dim n(2) 

HO dim v(9) 

120 RANDOMISE 

130 FOR I - 1 TO 2 

140 LET N(l) = 1 

150 LET v(5 * I - 5) = RND (13) 

160 NEXT I 
170 LET I = 1 
200 LET P = I 
210 FOR L = 1 TO 7 
220 FOR C = 1 TO N(p) 

230letj = c- 6 + 5*p 

240 IF L = 1 OR L = 7 THEN GO TO 420 

250 IF L = 4 THEN GO TO 270 

260 GO TO 440 

270 PRINT 

280 IF v(j) < 2 OR v(j) > 10 THEN GO TO 330 
290 PRINT v(j)j 

300 IF v(j) < 10 THEN PRINT " A "j 

310 PRINT "Wi 

320 GO TO 450 

330 LET A$ = " a AJQK" 

340 LET M = V(j) 

350 IF M > 10 THEN LET M = M - 9 
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360 FOR K = 1 TO M - 1 
370 LET A$ = TL$ (A$) 

380 NEXT K 

390 PRINT CHR$ ( CODE (A$)); 

400 PRINT " A 0*> 

410 GO TO 450 

420 print " caM * 

430 GO TO 450 
440 print 
450 NEXT c * 

460 print 
470 NEXT L 
480 PRINT 
490 PRINT 

600 PRINT "player:" jIj"~HI t OR STAY?" 
610 INPUT A$ 

620 CLS 

630 IF CODE (A$) = 56 THEN GO TO 670 

640 LET n(i) = n(i) + 1 

650 LET v(n(i) - 6 + 5 * i) = rnd (13) 

660 GO TO 200 

670 if i = 2 then stop 

680 LET I = I + 1 

690 GO TO 200 
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Note: 

In the IK version, there is insufficient 
MEMORY TO DISPLAY BOTH THE PLAYERS' CARDS 
AT THE SAME TIME. 

IF YOU HAVE ADDITIONAL MEMORY THEN 
REPUCE LINE 200 WITH 
200 FOR P = 1 TO 2 

AND ADD THE FOLLOWING LINE: 

500 NEXT P 

AS WELL, LINE 620 (CLS) SHOULD BE 
RENUMBERED 645. 
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Chomp 


100 dim a (48) 

110 FOR I = 0 TO 48 

120 LET a(i) = 6 

130 NEXT I 

140 LET a(0) = 53 

150 PRINT "how many players?" 

160 INPUT N 

170 LET T = 0 

200 LET T = T + 1 

210 FOR L = 0 TO 6 

220 LET J = 7 - L 

230 PRINT J, 

240 for c = 0 to 6 

250 PRINT CHR$ ( a(c + 7 * L))j 

260 NEXT c 

270 PRINT 

280 NEXT L 

290 PRINT , 

300 FOR C = 1 TO 7 
310 PRINT Cj 
320 NEXT c 
330 PRINT 

340 PRINT "PLAYER;";T 
410 PRINT "INPUT COORD" 




420 INPUT A 

430 IF A = 0 THEN GO TO 999 

440 LET J = A / 10 

450 letc = a-10*j-1 

460 let l = 7 - j 

470 let p = c + 7 * L 

480 ifp<0orp>48 then go to 420 

490 IF A(p) > 0 THEN GO TO 600 

500 PRINT "empty space" 

510 go to 410 

600 IF P = 0 THEN GO TO 700 

610 FOR J = L TO 6 

620 FOR I = C TO 6 

630 LET a(i + 7 * j) = 0 

640 NEXT I 

650 NEXT J 

660 cls 

670 IF T = N THEN LET T = 0 
680 GO TO 200 

700 print "player:"jtj"-you lost" 
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Mastermind 




Mastermind 

100 PRINT "WELCOME TO MASTERMIND" 

110 PRINT "ENTER NO OF DIGITS IN NUMBER (3-7)" 
120 INPUT N 
130 LET N = N - 1 
MO DIM A(n) 

200 FOR I = 0 TO N 

210 LET X = RND (10) - 1 

220 FOR J = 0 TO I 

230 if x = a(j) then go to 210 

2*10 NEXT J 
250 LET A(l) = X 
260 NEXT I 
270 LET G = 0 
280 go to 530 
300 INPUT B$ 

310 IF B$ = "" THEN STOP 
320 cls 
330 PRINT B$ 

3*10 LET R = 0 

350 LET c = 0 

360 LET G = G + 1 

370 FOR I = 0 TO N 

380 LET X = CODE (B$) - 28 

390 IF X = a(i) THEN LET C = C + 1 
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FOR J = 0 TO N 

IF X = A(J) THEN LET R = R + 1 
NEXT J 

LET B$ = TL$ (B$) 

NEXT I 

IF C = N + 1 THEN GO TO 600 
PRINT "NUMBERS RIGHT ="jR 
PRINT "CORRECT POSITIONS =";C 
PRINT 

PRINT "ENTER a "jN + lj""FIGURE GUESS" 

GO TO 300 

PRINT "YOU DID IT IN 6 ",'G;* ^GUESSES" 





Pinch 


100 dim g(9) 

HO PRINT "ENTER PUYER 1 NAME" 

120 INPUT Y$ 

130 PRINT "PLAYER 2 NAME?" 

140 INPUT Z$ 

150 LET A$ = Y$ 

160 LET B = 2 
170 GO TO 600 
200 LET C = G(l) 

210 IF C = 0 THEN RETURN 

220 FOR S = - 1 TO 1 

230 IF S = 0 THEN GO TO 330 

240 FOR J = 1 TO 6 

250 LET K = I + S * J 

260 IF K = 9 OR K = 0 THEN GO TO 300 

270 IF g(k) = 0 OR g(k) = C THEN GO TO 290 

280 NEXT J 

290 IF J = 1 OR g(k) = 0 THEN GO TO 330 

300 FOR K = 1 TO J - 1 

310 LET G(l + S * k) = 0 

320 NEXT K 

330 NEXT S 

340 CLS 

350 PRINT 



360 PRINT "pinch" 

370 PRINT 

380 PRINT 

390 FOR J = 1 TO 8 

400 PRINT " &A "j CHR$ (6 + 3 * g(j))j 

410 NEXT J 

420 PRINT 

430 PRINT "/j 

440 FOR J = 1 TO 8 

450 PRINT 

460 NEXT J 

470 PRINT 

480 PRINT 

490 FOR J = 1 TO 8 

500 PRINT 

510 NEXT J 

520 RETURN 

600 go sub 340 

610 PRINT 

620 PRINT A$j":ENTER MOVE" 

630 INPUT 1$ 

640 LET I = CODE (i$) - 28 

650 IF I = 0 THEN GO TO 999 

660 IF I > 0 AND I < 9 THEN GO TO 680 

670 go to 630 



680 IF NOT G(l) = 0 THEN GO TO 630 

690 LET g(i) = B 

700 go sub 200 

710 LET I = I + 1 

720 IF I = 9 THEN LET I = 7 

730 go sub 200 

790 LET B = B + 1 

750 IF B = 3 THEN LET B = 1 

760 IF B = 2 THEN LET A$ = Y$ 

770 IF B = 1 THEN LET A$ = Z$ 

780 GO TO 610 
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Gomoku 


HO l£T 
120 GO TO 200 

150 LET K = USR (a) + 2 * (x AND 15) - 24 
* (x / IB) + 175 
160 RETURN 
200 FOR K = 1 TO 7 
210 LET J = 8 - K 
220 PRINT Jj 
230 FOR I = 1 TO 7 
240 PRINT "B a "j 
250 NEXT I 
260 PRINT 
270 PRINT 
280 NEXT K 
290 PRINT , 

300 FOR K = 1 TO 7 
310 PRINT Kj'V'j 
320 NEXT K 
330 PRINT 

340 PRINT "input coords" 

Note: 

Because of the way this program is 

107 



CONSTRUCTED, IT IS IMPORTANT TO HAVE THIS 
SECTION OF THE PROGRAM WORKING PROPERLY 
FROM THE BEGINNING, 

PRESS R*U*N AND SEE THAT THE BOARD DISPLAY 
IS CORRECTLY PRINTED. 

WHEN WORKING PROPERLY ENTER C*L*E*A*R ON 
THE EDIT LINE AND PRESS "NEW LINE". 

TO INPUT X 

RIO IF X = 0 THEN GO TO 900 
TO LET X = X + 6 * (X / 10) 

TO L£T X - X AND 119 
TO IF X / IB = 0 OR (x AND 7) = 0 THEN GO 
TO TO 

TO GO SUB ISO 

TO IF PEEK (k) ) 6 THEN GO TO TO 

TO POKE K, 9 

TO LET V - 77 

1000 LET A = 16428 

1010 FOR I = 0 TO 12 

1020 PRINT A + I, 

1030 INPUT J 
1040 POKE A + I, J 
1050 PRINT PEEK (a + i) 

1060 NEXT I 



Note: 

Press G*0 T*0 1*0*0*0 at this stage and 
ENTER THE FOLLOWING VALUES TO BE POKED 
INTO THE REM STATEMENT! 

16428 42 

16429 12 

16430 64 

16431 201 

16432 9 

16433 113 

16434 23 

16435 1 

16436 7 

16437 17 

16438 119 

16439 16 

16440 112 

Because of the way the ZX 80 basic operates 
it is now not possible to have a screen 
display which inludes the REM line just 
POKEd, 

therefore DO NOT PRESS LIST. 





900 stop 


Note: 

PRESS R*U*N TO SEE THAT USR FUNCTION IS 
OPERATING CORRECTLY. ENTERING AN X COORDINATE 
FROM 11 TO 77 SHOULD SEE THAT SQUARE POKED. 

WIEN OPERATING CORRECTLY PRESS C*L*E*A*R 
AND DELETE LINES 900 AND 1000 - 1060. 

500 LET J = 0 
510 LET U = X 

520 FOR L = A + 5 TO A + 12 
530 LET I =0 
590 LET O = 0 

550 IF 2 * (L / 2) ( L THEN LET 0 = - 1 
560 IF 0 THEN LET X = U 
570 LET X = X + PEEK (l) 

580 LET X = X AND 119 
590 LET I = I + 1 

600 IF X / 16 = 0 OR (X AND 15) = 0 THEN 
GO TO 650 
610 GO SUB 150 

620 IF PEEK (K) = 9 THEN GO TO 570 



650 IF PEEK (K) - 12 AND 0 THEN GO TO 700 

690 IF 0 THEN LET V = X 

650 IF 0 THEN GO TO 700 

660 IF I > J THEN LET J = I 

670 IF NOT I = J THEN GO TO 700 

680 LET W - X 

690 IF NOT PEEK (k) = 6 THEN LET W = V 
700 NEXT L 

710 IF J < 3 THEN GO TO 800 

720 IF J > 5 THEN GO TO 900 

730 LET X = w 

790 GO SUB 150 

750 POKE K, 12 

760 GO TO 900 

800 LET X = 16 * RND (7) + RND (7) 

810 GO SUB 150 

820 IF NOT PEEK (k) = 6 THEN GO TO 800 

850 POKE K, 12 

890 GO TO 900 

900 PRINT "who won?" 
















